home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / wtj201.zip / MARQUEE.ZIP / MARQUEE2.FRM (.txt) < prev    next >
Visual Basic Form  |  1992-10-08  |  2KB  |  63 lines
  1. Form1
  2. #Marquee Using ScrollDC API Function
  3. Form1
  4. Marquee
  5. Arial
  6. Text1
  7. This is my sample text!
  8. Source
  9. Command1
  10. Start
  11. Command2
  12. Command3
  13. Form_Click
  14. ScrollDC
  15. lprcScroll
  16. RECTr
  17. lprcClip
  18. hRgnUpdate
  19. lprcUpdate
  20. BitBlt
  21. hDestDC
  22. nWidth
  23. nHeight&
  24. hSrcDC
  25. XSrc1
  26. dwRop
  27. SRCCOPY
  28. MarqueeG
  29. Command1_ClickY
  30. MText=
  31. Text1
  32. Source~
  33. FontName
  34. FonName
  35. FontSize
  36.     BackColor
  37. THeight-
  38. TWidth
  39. Width4
  40. CurrentY
  41. Height
  42. Picture
  43.     FonttName
  44. Image
  45. Portiong
  46. Text2
  47. SrcLeft
  48. MLeft
  49. Right
  50. Bottomx
  51. Command2_Click
  52. TimeToStop
  53. FALSE
  54. Command3_Click
  55. Form1
  56. User~
  57. Command1_Click
  58. Get the text onto the Source Picture Box
  59. This step would be skipped if we wanted to use a bitmap
  60. Now begin to draw the image of the text on the Marquee
  61. Command2_Click
  62. Command3_Click
  63.